home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / burglr / animate.frm < prev    next >
Text File  |  1995-05-08  |  4KB  |  131 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1770
  8.    ClientWidth     =   7365
  9.    Height          =   4710
  10.    Icon            =   ANIMATE.FRX:0000
  11.    Left            =   1035
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   4020
  15.    ScaleWidth      =   7365
  16.    Top             =   1140
  17.    Width           =   7485
  18.    Begin PictureBox Picture4 
  19.       AutoSize        =   -1  'True
  20.       Height          =   510
  21.       Left            =   720
  22.       Picture         =   ANIMATE.FRX:0302
  23.       ScaleHeight     =   480
  24.       ScaleWidth      =   480
  25.       TabIndex        =   3
  26.       Top             =   2760
  27.       Width           =   510
  28.    End
  29.    Begin PictureBox Picture3 
  30.       AutoSize        =   -1  'True
  31.       BackColor       =   &H00FFFFFF&
  32.       BorderStyle     =   0  'None
  33.       Height          =   375
  34.       Left            =   2520
  35.       ScaleHeight     =   375
  36.       ScaleWidth      =   375
  37.       TabIndex        =   2
  38.       Top             =   1920
  39.       Width           =   375
  40.    End
  41.    Begin PictureBox Picture2 
  42.       AutoSize        =   -1  'True
  43.       BackColor       =   &H00FFFFFF&
  44.       BorderStyle     =   0  'None
  45.       Height          =   495
  46.       Left            =   960
  47.       ScaleHeight     =   495
  48.       ScaleWidth      =   495
  49.       TabIndex        =   1
  50.       Top             =   1440
  51.       Width           =   495
  52.    End
  53.    Begin PictureBox Picture1 
  54.       AutoSize        =   -1  'True
  55.       BackColor       =   &H00FFFFFF&
  56.       BorderStyle     =   0  'None
  57.       Height          =   495
  58.       Left            =   600
  59.       ScaleHeight     =   495
  60.       ScaleWidth      =   495
  61.       TabIndex        =   0
  62.       Top             =   600
  63.       Width           =   495
  64.    End
  65.    Begin Menu Animatecom 
  66.       Caption         =   "&Animate"
  67.       Begin Menu Startcom 
  68.          Caption         =   "&Start"
  69.       End
  70.       Begin Menu exitcom 
  71.          Caption         =   "E&xit"
  72.       End
  73.    End
  74. End
  75. Sub exitcom_Click ()
  76. End
  77. End Sub
  78.  
  79. Sub Form_Load ()
  80. form1.windowstate = 2
  81. picture1.visible = 0
  82. picture2.visible = 0
  83. picture3.visible = 0
  84. picture4.visible = 0
  85. End Sub
  86.  
  87. Sub Startcom_Click ()
  88. form1.drawwidth = 1
  89. form1.drawstyle = 4
  90. picture4.visible = 0
  91. picture1.visible = 0
  92. picture2.visible = 0
  93. picture3.visible = 0
  94. picture1.top = form1.top + (picture4.height)
  95. picture1.left = form1.left - (picture1.width + picture4.width)
  96. picture1.picture = LoadPicture("burglar2.ico")
  97. picture2.picture = LoadPicture("burglar3.ico")
  98. picture3.picture = LoadPicture("burglar4.ico")
  99. picture1.visible = 1
  100. walkacross:
  101. For q = 1 To 75
  102.     picture4.top = picture1.top - 25
  103.     form1.Line (form1.left, picture4.top + picture4.height + 2)-Step(form1.left + form1.width, 0)
  104.     picture2.top = picture1.top
  105.     picture2.left = picture1.left + 50
  106.     picture4.left = picture2.left - picture4.width
  107.     picture4.visible = -1
  108.     picture2.visible = -1
  109.     picture1.visible = 0
  110.     picture3.top = picture1.top
  111.     picture3.left = picture2.left + 50
  112.     picture4.left = picture3.left - picture4.width
  113.     picture4.visible = -1
  114.     picture3.visible = -1
  115.     picture2.visible = 0
  116.     picture1.left = picture3.left + 50
  117.     picture4.left = picture1.left - picture4.width
  118.     picture4.visible = -1
  119.     picture1.visible = -1
  120.     picture3.visible = 0
  121.     x = DoEvents()
  122. Next
  123.  
  124. picture1.left = form1.left - (picture1.width + picture4.width)
  125. picture1.top = picture1.top + (picture1.height * 2)
  126. If picture1.top > form1.height Then picture1.top = form1.top + picture4.height
  127.  
  128. GoTo walkacross
  129. End Sub
  130.  
  131.